home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / EdgeTexScripts.lha / viewfile.edge < prev   
Encoding:
Text File  |  1994-05-28  |  529 b   |  20 lines
  1. /*View Other*/
  2. options results
  3. requestfile title DVI_FILE pattern '#?.dvi' getdir
  4. if ~(rc==0) then exit
  5. file=result
  6. address command 'TeX:bin/showdvi' file
  7. r=lastpos(file,"/")
  8. lo=left(file,r)
  9. log=lo||'showdvi.log'
  10. if ~(rc==0) then do
  11.     changewindow leftedge 0 topedge 13 width 668 height 220
  12.     requestnotify title ERROR string 'View Failed.  See log.'
  13.     new
  14.     address value result
  15.     activatewindow port result
  16.     open files log
  17.     window front
  18.     changewindow leftedge 0 topedge 233 width 668 height 230
  19.   end
  20. else address command delete log